*** Do File for Paper ***

*Table 1 - ESS*
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

mean Immig_Good_Bad_Crime [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_Crime [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_Crime [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_Crime [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

mean Immig_Good_Bad_Jobs [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_Jobs [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_Jobs [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_Jobs [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

mean Immig_Good_Bad_Services [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_Services [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_Services [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_Services [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

mean Immig_Good_Bad_Economy [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_Economy [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_Economy [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_Economy [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

mean Immig_Good_Bad_Culture [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_Culture [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_Culture [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_Culture [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

mean Immig_Good_Bad_PlaceLive [pweight=Weight] if (Pol_Trust_Index01 >=0 & Pol_Trust_Index01 <=.2) & Country!="IL"
mean Immig_Good_Bad_PlaceLive [pweight=Weight] if (Pol_Trust_Index01 >.2 & Pol_Trust_Index01 <=.4) & Country!="IL"
mean Immig_Good_Bad_PlaceLive [pweight=Weight] if (Pol_Trust_Index01 >.4 & Pol_Trust_Index01 <=.6) & Country!="IL"
mean Immig_Good_Bad_PlaceLive [pweight=Weight] if (Pol_Trust_Index01 >.6 & Pol_Trust_Index01 <=1) & Country!="IL"

*Table 2 - ESS*
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) replace

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) append

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) append

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) append

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) append

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
outreg2 using tab.tex, addstat(Pseudo R$^2$, `e(r2_p)') dec(3) append

*Figure 1 - ESS*
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL"
margins, at(Pol_Trust_Index01=(0(.1)1)) 
marginsplot

*combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")

*Figure 2, By Government Ideology on Immigration*
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m1, replace)

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m2, replace)

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m3, replace)

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m4, replace)

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m5, replace)

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==1
margins, dydx(Pol_Trust_Index01) saving(m6, replace)

combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")

clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m1, replace)

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m2, replace)

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m3, replace)

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m4, replace)

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m5, replace)

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Ideology01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & Center_or_Left_Immig==0
margins, dydx(Pol_Trust_Index01) saving(m6, replace)

combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")

*** Figure4, By ESS Respondent Ideology ***
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS 2014 Data.dta"

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m1, replace)

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m2, replace)

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m3, replace)

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m4, replace)

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m5, replace)

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=0 & Ideology<=4)
margins, dydx(Pol_Trust_Index01) saving(m6, replace)

combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m1, replace)

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m2, replace)

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m3, replace)

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m4, replace)

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m5, replace)

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology==5)
margins, dydx(Pol_Trust_Index01) saving(m6, replace)

combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")

probit Immig_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m1, replace)

probit Immig_Non_Europe Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m2, replace)

probit Allow_Muslims Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m3, replace)

probit Allow_Roma Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m4, replace)

probit Allow_Jewish Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m5, replace)

probit Refugee_Applications Pol_Trust_Index01 Female Age Tertiary_Education Income Big_City Either_Parent_Foreign_Born Ethnic_Minority ///
Econ_Satisfaction01 NatGov_Satisfaction01 Social_Trust_Index01 Self_Transcendence_Index01 Conservation_Index01 i.CFE [pweight=Weight] if Country!="IL" & (Ideology>=6 & Ideology<=10)
margins, dydx(Pol_Trust_Index01) saving(m6, replace)

combomarginsplot m1 m2 m3 m4 m5 m6, horizontal labels("Europe" "Non-Europe" "Muslims" "Roma" "Jewish" "Refugees")


*** Table 2 ESS CRONOS Panel Data ***
clear
use "C:\Users\dmac9\Dropbox\R&R PB Trust and Immigration in Europe\Clean ESS CRONOS Data.dta"

reg Immig_Bin_W3 Trust_Index_ESS8_01 Immig_Bin_ESS8 i.cfe, r
outreg2 using tab.tex, dec(3) replace

reg Trust_Index_W6_01 Trust_Index_ESS8_01 Immig_Bin_ESS8 i.cfe, r
outreg2 using tab.tex, dec(3) append




























